Bob Halley <halley@play-bow.org>: (eshell-set-output-handle): Fix so

that multiple redirection can work.

diff --git a/lisp/eshell/esh-io.el b/lisp/eshell/esh-io.el
index d458bad0665595088e44e0baa358b85b8120d831..fad9df29bbcc251ca52af19ea223f908096b7c42 100644 (file)
--- a/lisp/eshell/esh-io.el
+++ b/lisp/eshell/esh-io.el
@@ -396,7 +396,7 @@ it defaults to `insert'."
        (if (and (listp current)
                 (not (member where current)))
            (setq current (append current (list where)))
-         (setq current where))
+         (setq current (list where)))
        (if (not (aref eshell-current-handles index))
            (aset eshell-current-handles index (cons nil 1)))
        (setcar (aref eshell-current-handles index) current)))))